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SUONO CDM 64 


10 rem *** suono *** 

20 s=54272 

30 -f orK =s"tos+24 JpoKeK ,0 : nextK 

40 poKes+24,15 

50 poKes+5,0*16+3 

60 poKes+6,1 * 16+2 

70 poKes + 1 ,24 ' poKes,0 

80 poKes+4,33 

90 forK = Ito 100 :nextK 

100 poKes+4,32:poKes + 1,0 
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1 rem *** esplosioni *** 

10 s=54272 

roTr i j*» V» »»>ViVmi 

20 -f or i =s "tos+24 : polca i ,0 : nex-ti 

30 poKes +24,15 

40 f ord=7-to 13:poKes+5 ,d 

50 -forn =0to 13step3 

60 poKes,255 :poKes + 1,n 

70 poKes +4,123 

30 forteto 1500 : nextt 

30 poKes +4,123 

100 -f ori = Ito50 : nextt 


110 nextn ,d 
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SIRENE CDM 64 


1 rem *** sirene *** 

10 s=54272 

20 for i = stos+24 :pokei,0snexti 

30 poKes+24,15 

40 poKes+5,17 !poKes+6,246 

50 -f or K = 16 io 255 step 16 

60 poKes + 19,17:poKes+26,246 

70 poKes + 14,K;poKes + 15 ,0 

30 poKes + 13,17 :poKes*4,33 

30 -for.j = lto 100 

100 * =3000+4*<peeK <sd +27 > ) 

210 *h=int <f /256) ’i 1 =f -256*-fh 
230 poKes r *1 : poKes + 1 ,fh 
230 next j,K 

240 poKes + 13,16 :poKes+4,32 


DOMDARDAMENTO CDM 64 

! ^em *** bombardamento *** 

10 s=54272 

20 -f or i =stos+24 : poKe i ,0 s next i 

30 poKes +24,136 

40 poKes+5,17:poKes+6,246 

60 poKes + 19 , IO :poKes+20,0 

70 poKes +14,1 :poKes + 15,4 

80 poKes+18,33SpoKes+4,33 

30 e =peeK <s+23 ) : i-fe <240then90 

100 -f =24000 +64 *e 

220 poKes ,-f 1 : poKes + 1 ,-fh 

230 e=peeK<s+23)si>32then100 

240 poKes + 13,16spoKes+4 ,32 

£60 poKes+5,11 :poKes+6,9 

270 poKes,1spoKes + 1 ,3 

280 ooKes+24,15ipoKes+4,123 

290 ■fo'-'t = Ito 1000 : next 

300 poKes+4,126 

310 -f ort = Ito 1500 s next s goto30 




TELEFONO CDM 64 

10 rem *** -telefono *** 

20 s=54272 

30 for i=s-tos+24:poKe i ,0:next i 
40 vo=s+24 

50 wt = 17 :us=33sup=65•un = 129 

60 lf < 1 >=s sh-f < 1 )=s + l 

70 lp ( 1 )=s+2:hp<1>=s+3 

30 wf <1)=s +4 

90 ad <1)=s +5 s sr < 1 > =s +6 

100 fori=2to3 

110 lf<i>=fl<i-l>+7 

120 hf <i>=hl<i-1 >+7 

130 lp<i>=lp(i-l>+7 

140 hp <i)=hp<i-l)+7 

150 wf Ci>=wf <i-1 ) +7 

160 ad <i> =ad<i- 1)+7 

170 sr <i)=sr<i-l)+7 

180 next i 

190 poKevo , 15 

200 poKead < 1 > ,9 

210 poKesr<1>,2£0 

220 poKeu-f (1) ,wt 

230 -forr = l-to5 

240 -forn = l-to2 

250 for-t = Ito 15 

260 poKew-f < 1 > ,wt 

270 poKeh-f < 1 ) ,63 :po«el-f<l>,!43 
280 -f or s = lto5 : nex-ts 
290 poKeh-f < 1 ) ,0:poKelf < 1 > ,0 
300 nextt 

310 ford = Ito 100:nextd 
320 nextn 

330 f orp = l-to500J nextp 
340 nextr 

350 poKeu-f < ! > ,ut-l 




CAMPANELLI CDM 64 


IO: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 


*** 


rem *»* campanelli 
s=54272 

•fori=stos +24 :poKei,0:nexti 
d irrrfl <8 ) ,-fh <8 ) 

■fori = lto8:read-fl<i>,-fh<i>:nexti 
data 135,33,162,37,62,42,193,44 
data60,50,99,56,75,63,15,67 
poKes+24,15:poKes+3,8 
poKes +5,11spoKes+6,11 
■f or j = lto8 

d oKes ,-fl <j )!poK'es + l , f h < j ? 

poKes+4,65 

fort = lto 1000 s next 

poKes +4,64 

fort=lto 50 !n e x t 

next 


5## 


•t••••••i 

® ® ® ® ® ® 





•••••• -.- 

VtVAVtVtVrV/ 

~ V#V#V#VAV#%Vt%VtV 

• '■ 

€ » <d • - iJ • *■ 

%VA%V(" \%WtVt%V 

c « - * i « • a» » • • - « € 

‘ TU® ••••••••••• - • * • « 

BlyXvv 

••••••• « <*•*•••#•• 

W • • • ••••*• 0 » • • • .• • • 

>••••#••«•• *•<••* 

•*%••••••••••••••%•••••••• # .v, 

1 - “ * • _•_• T • _• • •_• f » • 


' ’■ _ W_VLf" 8 «I 

Kv 

i • • e « t • • ® ® ® ® ® + ® 
• r* >1 ^ # # # # # # 3 « 

O #6* > • © ® ® ® © ® ® 


■>> 


•K 


M- 


> • f.i • • • 


••v 


» # • « ^ if 

_© A ® _® • : 


!•%! 


«•! 


©~© 

Vf. 


• • 


• • 


• • 


> • € 

VtVi 

■ • • • • • • • t • 6 « « V * 

••••••#### 0 ##### 

•VtVtV# 

V.ViViV.Vi 

> • • • • • • #• » 0 • f> 

w.y.v.v. 

• •••••• 

»•*>§.••• • • • I • ( 

••••••••#•#••• 

• • • • • • ••••••••( 

* 9 3 • • • c . f* « 

f • <•* 0 • • • • • • • f » • O 

• • ••••• • • • 

• • O • 0 « 

• ••••• • • •••#•• 
• t t^ 0_0 • • • • • • g 

• •• • • • 

• • • • • • • • • • o • •; 

• r« • •••••• ♦ ^ 


• • < 


• • 

•V 

w 

* ©. ; 


•%* 


• • • 


• • • 
• • « 


• *> 


*• • 


* \ 
i *1 

• A 


» • 

:•> 

• • 


•> • 

» • • 

> • 


• • 

• • • 
• • 


• • 

rx « 
«iti 

• • 


0 tt 000 O I 00 
• • •••••••• 

• • • • • • • I • • 

• 999999999 

1 ■ • 00000O100 

• 000I000««0O '00< 
-••BBBBBB®#©,. »#' 

• ••••• 

• * <‘'<*9999999 » 

« • •> *«•••#••••• . 

• • •••«•t0i«0e00' 

0 • • • • 6 BOiB^BBBBBBi 

^ f> ' » • O v 4 *■ ^ ■> > 1 

• •••••••••••BBB # 

• « '*9 0 99999C 99 

• •••Ì 000 l 0 t 00 t 00 
'•••••••<~ 


v.% 

• • • 

• « • « 

» • • • UA w . 

• •••••• 

9 • • 0 • • 


• • 


* r 



• • 
• 0 


• ^ 


• _• 
■ r 






• • • • •• 


• • 


• • 

• • 
» • « 
• • 
' • 


• « • » 


0 0 0 

i • ^ 

• • 

• • * 1 « \ 


9 9 
9 • « 
0 • • 
0 0 « 
BBC 




> B B 
• « 

* B B 
B B 


I 

• •Boi 
• B B •] 
B • B B | 
B B Bl 

• | 

9 ■* *1 

0 . I I 


B • 



ESEMPIO 1 -VIC 20 

10 rem *** esempio 1 *** 
£0 poKe3S873,15 
30 -forK = l£8-to£55 
40 poKe36875,K 
50 -for-t = l-tol0:nex-t-t 
60 nex-tK :poKe36875 ,0 
70 poKe36378,0 
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10 rem * * * esempio 2 * * * 

£0 poKe36878,15 

30 -f orK =255to 128step - 1 

40 poKe36875,K 

50 -f or-t = 1 -t o 10 :nex"tt 

60 nextK:poKe36375,0 

70 poKe36378,0 
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MUSICA VIC 20 


1 rem * * * music» * * * 

10 poKe36878,15 
20 readp 

30 i-f p =-ithenpoKe3S378,0 i end 

40 readd 

50 poKe36875,p 

60 -forK = ltod:nextK 

70 poKe36875,0 

80 torK=lto20:nextK 

80 goto20 

100 data 217,400,213,400,223,400 
110 data 227,200,234,200,230,400 
120 data 227,200,234,200,230,400 
130 data 223,400,227,400,217,400 
140 data-1 


CADUTA BOMBA VIC 20 

10 rem *** caduta bomba *** 
20 s=3SS7B:n=36877 
30 0=36873 

40 -forj =230tol80step-l 

50 poKes ,j 

60 poKew,<230-j)/4 

70 -forK = 1 to30:nextK 

80 nextj 

90 poKes ,0 

100 poKev , 15 

110 poKen , 180 

120 -f or K = lto250 : nextK 

130 -for j =15tolstep-l 

140 poKev ,j 

150 -f orK = Ite 200 : nextK 

160 nextj 

170 poKev ,0 

180 pcKen ,0 

180 end 



CAROSELLO V7C 20 

<0 rem *** carosello **# 

20 d imn < 12 > ,a <8,3 > 

30 s 1 =38876:s2=36875ss3=36874:s4=36877:v=36873 
40 forj = Ito 12 

50 print"numero"Jjinput n<j) 

60 i-f n <0 ) <0or n < j ) >8then50 
70 nextj 
80 forj=lto8 
30 forK=lto3 
100 reada <j ,K > 

1 10 nextK 
120 nextj 
130 torj = ltol2 

140 poKes2,a<n<j >,2>!?oKes4,253 
150 pcKev , 15 
160 gosub3!0 
170 gosub3!0 

180 PoKes 1 , a < n < j ),!):poKes3,a<ri<j >,3> 

! 90 gosub310 

200 poKes1 ,0JpoKesS,0 

210 gosub320 

220 poKes 1 ,a<n(j),l):poKes3,a(nCj>,3) 

230 gosub310 

240 poKes 1 ,0JpoKes3,0 

250 i-fj/3=int ( j /3 )and f -0then f = 1 : goto 160 
260 f=0 

270 poKes 1 ,0 :poKes4,0 
280 gosub320 
230 nextj 
300 goto 130 

310 -forK = ltol00!nextK:return 
320 forK = lto30snextK«return 

330 dat a230,193,230,232 ,200,232,214,206,222,213,208,233 
340 data232,2 14,227,230,218,232,214,222,232,218,224,214 
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BIT n. 

7 

6 

5 

4 

3 

2 

1 

0 


DECIM. 

128 

64 

32 

16 

8 

4 

2 

1 

INDIRIZZO 

FUNZIONE 

OSCILLATORE 1 

0 

54272 

LO FQ 

17 

«6 

f 5 

f 4 

f 3 

f 2 

fi 

fO 

1 

54273 

HI FQ 

f 15 

f 14 

f 13 

f 12 

f 11 

fio 

f 9 

f 8 

2 

54274 

LO PW (PL) 

pw 7 

pw 6 

pw 5 

pw 4 

pw 3 

pw 2 

pw 1 

pw 0 

3 

54275 

HI PW (PH) 

Itili 

lllll 

lllll 

lllll 

p w 11 

pw 10 

pw 9 

pw 8 

4 

54276 

REG. CONT. 

RUM. 

n n 

/UVI 

/\ 

TEST 

RMOD 

SYNC 

GATE 

5 

54277 

ATT-DEC 

ATT 3 

ATT 2 

ATTI 

ATTO 

DEC 3 

DEC 2 

DEC 1 

DECO 

6 

54278 

SOS-RIL 

SOS 3 

SOS 2 

SOS 1 

SOSO 

RIL 3 

RIL 2 

RIL 1 

RILO 

OSCILLATORE 2 

7 

54279 

LO FQ 

f 7 

f 6 

f 5 

f 4 

f 3 

f 2 

fi 

fi 

8 

54280 

HI FQ 
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f 13 

1 12 

t ii 
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TABELLA VALORI DELL'INVILUPPO CDM 
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